home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed6.d64 / speed spell 8 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  289 lines

  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 20 DATA"DESPICABLE","DETERGENT","DIARY","DETERIORATE","DIAPHRAGM","DIETICIAN"
  9. 35 IFUW=0THENSYSUU,15
  10. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 111 IFUA=39THENRETURN
  23. 115 IFUA=32ANDUR<>0THENRETURN
  24. 120 IFUA>47ANDUA<58THENRETURN
  25. 125 IFUA>64ANDUA<91THENRETURN
  26. 130 IFUA<193ORUA>218THENUI$="":RETURN
  27. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  28. 140 RETURN
  29. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  30. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  31. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  32. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  33. 310 REM PROJECT MANAGER: FRANK WINTER
  34. 320 REM PROGRAM NAME: SPEED SPELL 8 ( A NEW UNIT)
  35. 330 REM WRITTEN BY: UNKNOWN
  36. 340 REM REVISED BY: JAN SAWCZAK"
  37. 350 [143] UPDATED BY: BILL CUMBERLAND
  38. 360 [143] IF REQUIRED, THE WORD LIST CAN BE"
  39. 365 REM MODIFIED TO INCLUDE OTHER WORDS THAT ARE BEING STUDIED.
  40. 370 REM CHANGE OR ADD WORDS INTO DATA LINES 1900-2345
  41. 375 REM MAXIMUM WORD LENGHT IS SET AT 20 LETTERS.
  42. 380 REM TO ACCOMMODATE LONGER WORDS, CHANGE THE VALUE OF 'UL' IN LINE 1380.
  43. 385 REM NOTE: DO NOT CHANGE OR DELETE DATA LINE 2350
  44. 399 :
  45. 400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
  46. 410 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  47. 420 [153]" (null)HIS PROGRAM IS A WORD GAME TO HELP"
  48. 430 [153]" YOU PRACTISE CHR$RADE 7 SPELLING WORDS.":[141]591
  49. 440 [153]" (null)ATCH THE BRIEF DISPLAY OF EACH WORD.":[141]591
  50. 450 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]591
  51. 460 [153]" ATNFTER 25 WORDS, YOUR SCORE WILL BE      DISPLAYED.
  52. 490 GOSUB820:RETURN
  53. 499 :
  54. 500 REM <YES> SOUND
  55. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  56. 510 POKE54296,15:POKE54277,42:POKE54278,250
  57. 515 POKE54276,23:POKE54273,23:POKE54272,191
  58. 520 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  59. 525 POKE54296,0:RETURN
  60. 530 REM <NO> SOUND
  61. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  62. 540 POKE54296,15:POKE54277,18:POKE54278,242
  63. 545 POKE54276,33:POKE54273,4:POKE54272,48
  64. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  65. 555 POKE54296,0:RETURN
  66. 560 REM <BLIP> SOUND
  67. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  68. 570 POKE54296,8:POKE54277,42:POKE54278,250
  69. 575 POKE54276,23:POKE54273,23:POKE54272,191
  70. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  71. 585 POKE54296,0:RETURN
  72. 590 FORTM=1TO500:NEXT:RETURN
  73. 591 FORTM=1TO1000:NEXT:RETURN
  74. 592 FORTM=1TO2000:NEXT:RETURN
  75. 595 FORTM=1TO5000:NEXT:RETURN
  76. 599 :
  77. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  78. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM ":GOSUB591
  79. 802 PRINT"                                        [146]";
  80. 803 PRINT"                                        [146]";
  81. 804 PRINT"                                        [146]";
  82. 805 PRINT"             SPEED SPELL 8              [146]";
  83. 806 PRINT"                                        [146]";
  84. 807 PRINT"                                        [146]";
  85. 808 PRINT"                                        [146]":GOSUB591:GOSUB560
  86. 809 PRINT"          INSTRUCTIONS?  Y/N
  87. 810 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 810
  88. 811 [139]R$[178]"Y"[167] [141] 400
  89. 812 [153]"LOAD  AND AWAY WE GO!
  90. 813 GOSUB591:GOSUB500:GOSUB591
  91. 814 GOTO1000
  92. 820 GOSUB591:GOSUB560
  93. 822 POKEUN,0:PRINTLEFT$(UD$,24);"  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE  [146]"
  94. 824 GETUI$:IFUI$<>CHR$(32)THEN824
  95. 826 RETURN
  96. 830 GOSUB591:GOSUB560
  97. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[153]  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE  [146][155]"
  98. 840 GETUI$:IFUI$<>CHR$(32)THEN840
  99. 845 RETURN
  100. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  101. 855 PRINT" --------------------------------------"
  102. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]
  103. 865 UH[178]0:[153]"":[142]
  104. 875 [153][200](UD$,24);"       ASCIFTEEN SECONDS PLEASE...      ":[142]
  105. 899 :
  106. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  107. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  108. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  109. 905 UD$[178]"":UP$[178]"                                      "
  110. 906 L[178]650:[134] T$(L),A$(30)
  111. 909 [142]
  112. 910 [141]900:[153]"LOAD "
  113. 920 [137]800
  114. 999 :
  115. 1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
  116. 1050 UT$[178]" (null)PEED (null)PELL 7":UP[178]0
  117. 1100 [151]UT,UL%:UG$[178]""
  118. 1115 [153]"LOAD   PEEKEFORE BEGINNING THIS CHR$RADE 7 WORD"
  119. 1120 [153]"   GAME, DO YOU WISH TO SEE THE WORDS"
  120. 1125 [153]"   (ALL 427 OF THEM)?  (Y/N)  ";
  121. 1135 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 1135
  122. 1140 [139]R$[178]"Y"[167]1670
  123. 1150 [141]8000:[141]875:UG$[178]"":[140]
  124. 1165 T[178].1
  125. 1170 J[178]T[172]60:B[178]147
  126. 1185 C[178]0
  127. 1195 [135] R$
  128. 1200 [139] R$[178]"XXX" [167] 1225
  129. 1205 C[178]C[170]1
  130. 1210 [139] C[177]L [167] [153]"(null)OO MANY WORDS CHANGE LINE 906 SO THAT (null)> NO. OF WORDS"
  131. 1215 T$(C)[178]R$
  132. 1220 [137] 1195
  133. 1225 R[178][187]([171]TI)
  134. 1230 R[178][187]([171]TI)
  135. 1245 [153]"LOAD ATN WORD WILL BE FLASHED BETWEEN THESE    LINES.
  136. 1250 PRINT" [215]ATCH CAREFULLY!":GOSUB592
  137. 1255 PRINT"           ---------
  138. 1260 [153]"           ---------":[141]560:[141]560:[141]591
  139. 1265 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]592
  140. 1295 [153]" (null)E'LL START AT";T;"SECONDS.":UP[178]0:UQ[178]0
  141. 1315 UQ[178]UQ[170]1:[141] 830
  142. 1320 R[178][181](C[172][187](1))[170]1
  143. 1325 [139] R[178]P1 [176] R[178]P2 [176] R[178]P3 [167] 1320
  144. 1330 [139] R[178]P4 [176] R[178]P5 [167] 1320
  145. 1335 [139] UQ[177]NW [167] 1500
  146. 1337 UH[178]1:UG$[178]"(null)ORD #":[141]850:[141] 1475
  147. 1340 [141]591:[141]560:[141]560
  148. 1345 [153][200](UD$,13);[163]20[171]([195](T$(R)))[173]2);
  149. 1347 [153]T$(R)
  150. 1350 S[178]TI
  151. 1355 [139] TI[171]S[179]J [167] 1355
  152. 1360 [143]
  153. 1365 UP[178]UP[171]1:[141]850
  154. 1375 [153]" (null)HAT WAS IT?  >>>> ";
  155. 1380 US$[178]"":UL[178]20:[141]35:R$[178]UR$
  156. 1385 [153]
  157. 1390 [139] R$[179][177]T$(R) [167] 1440
  158. 1395 [141]500:[153]"SYS (null)HAT'S RIGHT! >>>> "T$(R)" WAITLIST"
  159. 1400 CR[178]CR[170]1:J[178]J[171]3
  160. 1401 [141] 1800
  161. 1405 [139] J[179]1.5 [167] J[178]1.5
  162. 1410 [153]
  163. 1415 P1[178]P2:P2[178]P3:P3[178]P4:P4[178]P5:P5[178]R
  164. 1417 [139] UP[177]9 [167] 1315
  165. 1420 [153]" (null)HE NEXT ONE WILL BE DISPLAYED"
  166. 1425 [153]" FOR";J[173]60;"SECONDS."
  167. 1435 [137] 1315
  168. 1440 [141]530:[153]"          DEF (null)(null)(null)(null)CHR$! WAIT  RIGHT$T WAS -- ":WRO[178]WRO[170]1
  169. 1442 [129]FL[178]1[164]11
  170. 1444 [153]""[163]16[171]([195](T$(R))[173]2))">>>"[199](18[171]128[172](FL[173]2[178][181](FL[173]2)))" "T$(R)" WAIT<<<ON"
  171. 1446 [129]TX[178]1[164]100:[130]:[130]
  172. 1448 [153]"LIST":[141] 1800
  173. 1450 J[178]J[170]3
  174. 1455 [139] [181](J[173]3)[179][177]J[173]3 [167] J[178]3[172][181](J[173]3)
  175. 1460 [137] 1410
  176. 1475 NQ[178]NQ[170]1
  177. 1480 [153]"-----------"
  178. 1485 [153]"-----------"
  179. 1486 [142]
  180. 1500 [151]53280,0:[151]53281,0:[151]646,13:SC[178]CR[173]25[172]100
  181. 1510 [153]"LOAD           (null)VAL(null)(null)(null)(null)(null) WAIT
  182. 1520 PRINT"     [217]OUR SCORE IS:";SC;"PER CENT"
  183. 1525 PRINT"     [206]UMBER OF CORRECT WORDS:";CR
  184. 1530 PRINT"     [206]UMBER OF WRONG WORDS  :";WRO
  185. 1535 IF CR=25THENPRINT"[158]              [197][216][195][197][204][204][197][206][212]!                [146][155]":GOTO1550
  186. 1540 IFCR<20THENPRINT"[150]      [217]OU MUST TRY HARDER.              [155][146]":GOTO1550
  187. 1545 PRINT"            [199]OOD WORK!                  [146][155]
  188. 1550 [153]"":[141]830
  189. 1555 [153]"LOAD   (null)OU HAVE A CHOICE:
  190. 1560 PRINT"   [208]RESS  [210] [146] TO REPEAT THIS PROGRAM
  191. 1565 [153]"   (null)RESS  (null) WAIT TO RETURN TO THE MENU
  192. 1570 IFR$="R"THENRESTORE:GOTO800
  193. 1574 PRINT"[147]  [210]ETURNING TO THE DISK [205][197][206][213]
  194. 1576 [147]"MENU",8
  195. 1578 [138]
  196. 1580 [128]
  197. 1670 [140]:UG$[178]"EXAMINE WORDS":UP[178]0
  198. 1680 [129]A[178]1[164]20
  199. 1690 [135]A$(A)
  200. 1695 [139]A$(A)[178]"XXX"[167]1710
  201. 1700 [130]A
  202. 1710 UH[178]1:[141]850
  203. 1715 [129]I[178]1[164]A[169]2
  204. 1720 [139]A$(I)[178]"XXX"[167][153]:[141]835:[137]1150
  205. 1730 [153]"";A$(I);
  206. 1740 [139]A$(I[170]1)[178]"XXX"[167][141]835:[137]1150
  207. 1750 [153][163]20);A$(I[170]1)
  208. 1760 [130]I
  209. 1770 [141]835
  210. 1785 [137]1680
  211. 1800 [153]"(null)OUR SCORE IS "CR"CORRECT"
  212. 1810 [153]"              "WRO"WRONG"
  213. 1820 [142]
  214. 2000 [131]"ABBREVIATE","ABRUPT","ABYSS","ACADEMIC","ACCELERATE","ACCLAIM"
  215. 2005 [131]"ACCOMMODATE","ACCOMPANY","ADVERTISE","ADVOCATE","ADAMANT","ADDRESSED"
  216. 2010 [131]"ACUMEN","ADMISSIBLE","ADMITTANCE","ADOLESCENCE","AERIAL","AEROSOL"
  217. 2015 [131]"AFFIDAVIT","AFFILIATE","AFFRONT","ATNFGHAN","ATNFRICA","AGRAVATE","AISLE"
  218. 2020 [131]"ALIBI","ALCOHOL","ALIGNMENT","ALLEGIENCE","ALL RIGHT","ANNIVERSARY"
  219. 2025 [131]"ANALYSIS","ANKLE","ANECDOTE","APPARATUS","APPENDIX","APPETITE"
  220. 2030 [131]"APPRAISE","ARBITRATE","ATNRCTIC","ARCHITECT","ARREARS","ARTERY"
  221. 2035 [131]"ASPHALT","ASSASSINATE","ASSOCIATE","ASTRONAUT","ASTHMA","ATHLETIC"
  222. 2040 [131]"ATTACHED","ATMOSPHERE","AUDITORIUM","ATNUGUST","AUTUMN","AVALANCHE"
  223. 2045 [131]"BACHELOR","BALLISTICS","BANISTER","BARBECUE","BARRACKS","BATTALION"
  224. 2050 [131]"BEGINNER","BELIEVER","BEHAVIOUR","BENEFICIARY","BERSERK","BIGOT"
  225. 2055 [131]"BOUNDARIES","BANQUET","BISECT","BINARY","BILIOUS","BLITHE","BLUDGEON"
  226. 2060 [131]"BRITANNICA","BRIEF","PEEKUDDHA","BROCCOLI","CAFFEINE","CANOE","CALYPSO"
  227. 2065 [131]"CANISTER","CARBOHYDRATE","CARBURETOR","CAPSULE","CAROUSE","CARRIAGE"
  228. 2070 [131]"CELESTIAL","CEREBRAL","CHAUFFER","CLIENTEL","CITATION","LENHEDDAR"
  229. 2075 [131]"CHIVALROUS","CHOLERA","CHIEFTAIN","CHAOS","CHASM","CLOTHES","COGNAC"
  230. 2080 [131]"CLAQUE","CLANNISH","COLLOQUIAL","COLUMNIST","COMMODITY","COMMA"
  231. 2085 [131]"COMPTROLLER","CONCENTRIC","CONCILIATE","CONCEDE","CONCEIT","CONCLAVE"
  232. 2090 [131]"LENONFUCIUS","CONDEMN","CONCOCT","CONSCIENTIOUS","CONSENSUS","CONSTABLE"
  233. 2095 [131]"CONNOTE","CONSCIOUS","CONNUBIAL","CONNOISSEUR","COLLEAGUE","COMPASS"
  234. 2100 [131]"CONTOUR","CONVERGE","CONVALESCE","CONVERSE","CONVULSE","COOPERATE"
  235. 2105 [131]"COORDINATION","CORRUGATED","CORRIDOR","CORPUSCLE","CORRAL","CORONARY"
  236. 2110 [131]"DANDRUFF","DEDUCTIBLE","DECIPHER","DELICATESSEN","DELICACY","DEFICIT"
  237. 2115 [131]"DENTIFRICE","DEODORANT","DEPRECATE","DERELICT","DERRICK","DESOLATE"
  238. 2120 [131]"DESIGNER","DESPISE","DESTINATION","DESTROY","DEVELOPMENT","DIAGRAM"
  239. 2125 [131]"DILAPIDATE","DIARY","DILEMMA","DIABETES","DINOSAUR","DIPLOMA"
  240. 2130 [131]"DISBURSEMENT","DISCIPLE","DISCIPLINE","DISCOURTEOUS","DISCRIMINATE"
  241. 2135 [131]"DISSEMINATE","DISSECT","DISCERN","DISEASE","DUBIOUS","DUPLEX","DWARF"
  242. 2140 [131]"DONOR","DOLDRUMS","ECOLOGY","EDUCABLE","ECUMENICAL","ELIXIR","ELVES"
  243. 2145 [131]"ELIGIBLE","ELITE","ELLIPSE","ELUCIDATE","EMANATE","EMBLEM"
  244. 2150 [131]"ENCYCLOPEDIA","ENMITY","ENSEMBLE","ENUNCIATE","EPICURE","EPITAPH"
  245. 2155 [131]"EQUILIBRIUM","EQUINOX","EPOCH","EPIDEMIC","ERRONEOUS","ESCULATOR"
  246. 2160 [131]"EXPLICIT","EXONERATE","EXTRAORDINARY","EXCISE","EXCRUCIATE","EXHAUST"
  247. 2165 [131]"FABULOUS","FALLACY","FALLIBLE","FATIGUE","FATHOM","FIASCO","FACSIMILE"
  248. 2170 [131]"FIBROUS","FEIGN","ASCEBRUARY","FEASIBLE","FLAMMABLE","FRIAR","FOREIGN"
  249. 2175 [131]"FRAUGHT","FORFEIT","FORGERY","FRIVOLOUS","FLUORIDE","FUSELAGE"
  250. 2180 [131]"GALLON","GARRULOUS","GASEOUS","GENUINE","GHASTLY","GLACIAL"
  251. 2185 [131]"GUARANTEE","GROTESQUE","GRIEVANCE","GRUESOME","GUIDANCE","GYROSCOPE"
  252. 2190 [131]"HABILITATE","HADDOCK","HALLUCINATE","HALVES","LEFT$AWAII","HEIFER","HOAX"
  253. 2195 [131]"HERRING","HERESY","HERITAGE","HIERARCHY","HOWL","HYBRID","HYSTERIA"
  254. 2200 [131]"HUMILIATE","HYDRANT","HYDRAULIC","ICEBERG","RIGHT$CELAND","RIGHT$LLINOIS"
  255. 2205 [131]"ILLITERATE","IMPINGE","IMMPECCABLE","IMMUNE","IMPEDE","INEFFICIENT"
  256. 2210 [131]"INERTIA","INFRARED","INFURIATE","INTERROGATE","RIGHT$SRAEL","INSOLUBLE"
  257. 2215 [131]"INTERPOLATE","INTERMITTENT","INTRIGUE","INTSTANTANEOUS","INTERCEPT"
  258. 2220 [131]"INVIGORATE","IRIDESCENCE","IRRELEVANCE","IRRIGATE","ISOTOPE","JAGUAR"
  259. 2225 [131]"MID$APANESE","JEALOUS","JEOPARDY","JEWELS","JUDICIAL","JUICE","KAYAK"
  260. 2230 [131]"KHAKI","LACONIC","LAMINATE","LANGUOR","LARCENY","LEDGER","LAVATORY"
  261. 2235 [131]"LEISURE","LEXICON","LEVITATION","LIABILITY","LIKABLE","LIMOUSINE"
  262. 2240 [131]"LINOLEUM","LIQUIFY","LITERACY","LOGARITHM","LUBRICATE","MAGISTRATE"
  263. 2245 [131]"MAGGOT","MAINTENANCE","MALINGER","MARRIAGE","MASSACRE","MAYONNAISE"
  264. 2250 [131]"MATHEMATICAL","(null)EDITERRANEAN","MARTYR","METEOR","MUSCLE","MINIATURE"
  265. 2255 [131]"MERRINGUE","MIRAGE","MISSILE","MORGUE","(null)INNESOTA","(null)ASSACHUSETTS"
  266. 2260 [131]"(null)ANITOBA","MORTUARY","MYTHICAL","MUNDANE","MUSEUM","MYOPIA"
  267. 2265 [131]"MYSTIFY","NAPTHA","NARCOTIC","NEGLIGEE","(null)IAGARA","NEPHEW","NIECE"
  268. 2270 [131]"NICKEL","NEGOTIATE","OGRE","OBITUARY","OBSESSION","OCTOPUS","OCULIST"
  269. 2275 [131]"OMNIVEROUS","OPAQUE","(null)NTARIO","OYSTER","OXYGEN","ORPHAN","ORCHID"
  270. 2280 [131]"OPPRESSOR","OBNOXIOUS","OBLIQUE","OSCILLATE","(null)LYMPIC","OVARY"
  271. 2285 [131]"(null)ACIFIC","PACIFY","PARLIAMENTARIAN","PALATABLE","PARAFFIN"
  272. 2290 [131]"PARANOIA","PARALYSIS","PERCENTILE","PARENTHESIS","(null)ENNSYLVANIA"
  273. 2295 [131]"PERISCOPE","PENNILESS","PERIPHERY","PERMEATE","PERJURY","PEDESTRIAN"
  274. 2300 [131]"PERSPIRE","PERVERSE","PHANTO","PLUMBER","POETRY","PORRIDGE","POSSIBLE"
  275. 2305 [131]"POMPOUS","PORTFOLIO","PREDECESSOR","PREVALENT","PROFFER","PROCURE"
  276. 2310 [131]"PROPRIETOR","PROSECUTE","PROPAGATE","PROTEIN","PSALM","PROTOCOL"
  277. 2315 [131]"PROXIMITY","PSUEDONYM","PSYCHOLOGY","PUNCTURE","PURGE","PYRAMID"
  278. 2320 [131]"PROTOTYPE","PSEUDO","PULMONARY","PURSUIT","PUTREFY","PUNCTUATE"
  279. 2325 [131]"RECIPROCITY","REPELLENT","RESILIENCE","REPLICA","REPRISAL","TEMERITY"
  280. 2330 [131]"TEMPLATE","TENUOUS","TERRITORIAL","TOILET","TENDON","TORNADO"
  281. 2335 [131]"UNDERWRITER","UNIQUE","UNNECESSARY","VACUUM","VERSATILE","TITILLATE"
  282. 2340 [131]"THEATRE","THERAPUTIC","THESIS","(null)UESDAY","(null)ENNESSEE","TOMBSTONE"
  283. 2345 [131] "XXX"
  284. 8000 [143] NUMBER OF WORDS DISPLAYED
  285. 8010 [153]"LOAD        (null)HERE WILL BE 25 WORDS.":NW[178]25:[141]591
  286. 8020 [153]"          (null)ETTING THE STAGE.
  287. 8030 RETURN
  288. 8100 REM WHC 90:11:29
  289.